//searfloor.txt - A heated floor which damages anyone stepping on it. When the correct
//flag is set to 1, turns dark and doesn't do damage.
//Cell 0 - The number of d6 of damage this floor does. If 0, defaults to 8.
//Cell 1,2 - A stuff done flag. If > 0, this mine has been deactivated.


beginobjectscript; // searfloor

variables;
short near_char;
short r1;

body;

beginstate INIT_STATE;
	if (get_memory_cell(0) == 0)
		set_walk_damage(8);
		else set_walk_damage(get_memory_cell(0));

	if ((get_memory_cell(1) > 0) || (get_memory_cell(2) > 0)) {
		if (get_sdf(get_memory_cell(1),get_memory_cell(2)) > 0) {
			set_object_icon(ME,5);
			}
			else {
				set_object_icon(ME,2);
				}
		}
	break;

beginstate DEAD_STATE;

break;

beginstate START_STATE; 
	if ((get_memory_cell(1) > 0) || (get_memory_cell(2) > 0)) {
		if (get_sdf(get_memory_cell(1),get_memory_cell(2)) > 0) {
			set_walk_damage(0);
			set_object_icon(ME,5);
			}
			else {
				if (get_memory_cell(0) == 0)
					set_walk_damage(8);
					else set_walk_damage(get_memory_cell(0));
				set_object_icon(ME,2);
				}
		}
	break;
